home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3plsar.arc / DATA.PRG < prev    next >
Encoding:
Text File  |  1986-08-04  |  1.5 KB  |  63 lines
  1. **************************************** (DATA.PRG)
  2. CLEAR
  3. @ 9,1 SAY 'Be sure you have updated the customer files before ì
  4. continuing.'
  5. @ 13,1 SAY 'Want to print a customer data report? '
  6. ?
  7. STORE ' ' TO OPTION
  8. WAIT ' ?  ' TO OPTION
  9. IF OPTION<>'Y'
  10.    RETURN
  11. ENDIF
  12. CLEAR
  13. USE CUST
  14. STORE 0 TO COUNT
  15. STORE 1 TO PCOUNT
  16. SET TALK OFF
  17. DO WHILE .NOT. EOF()
  18.    STORE '            ' TO MSALES
  19.    ******************************!!**(PUT YOUR NAME AND CODES HERE IF YOU LIKE.)
  20.    *IF SALES='J'
  21.    *STORE 'JAY KENNEY' TO MSALES
  22.    *ENDIF
  23.    *IF SALES='C'
  24.    *STORE 'Charles Nash' TO MSALES
  25.    *ENDIF
  26.    *IF SALES='H'
  27.    *STORE 'House' TO MSALES
  28.    *ENDIF
  29.    SET PRINT ON
  30.    IF COUNT = 10
  31.       STORE PCOUNT+1 TO PCOUNT
  32.       STORE 0 TO COUNT
  33.       ? CHR(12)
  34.    ENDIF
  35.    IF COUNT=0
  36.       ? MTITLE+'      Page '+STR(PCOUNT,2)
  37.       ? DTOC(DATE())+'                        Customer Data   Net Due    ì
  38. + 30   ì
  39.   + 45  +  60'
  40.       ? ì
  41. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ì
  42. ì
  43. ~~~~~~~~~~~~~~'
  44.    ENDIF
  45.    ? 'Account number '+ACCT
  46.    ? NAME+'  '+PHONE+' '+STR(NET,7,2)+' ì
  47. '+STR(OLD_30,7,2)+STR(OLD_45,9,2)+STR(OLD_60,7,2)
  48.    ? ADDRESS+'Salesman: '+MSALES
  49.    ? CITY+STATE+' '+ZIP+'    Discount:'+' '+DISC+'   Paid YTD Total: ì
  50. '+STR(ALLPAY,8,2)
  51.    ? ì
  52. '-----------------------------------------------------------------ì
  53. --------------'
  54.    ?
  55.    SKIP
  56.    STORE COUNT +1 TO COUNT
  57.    IF EOF()
  58.       ? CHR(12)
  59.    ENDIF
  60.    SET PRINT OFF
  61. ENDDO
  62. RETURN
  63.